 subroutine printdnrm2(title, array, iop) 
!
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
 implicit none
 character*(*), intent(in) :: title
 real*8, intent(in),managed :: array(*)
 real*8, external :: nrm2so, dnrm2
 real*8 f1, f2
 integer, intent(in) :: iop 
 if(prec==8) then
    call printdnrm2_d(title, array, iop)
 elseif(prec==4) then 
    call printdnrm2_s(title, array, iop)
 endif
 return 
 end 
